<script>--‚àë‚àë‚àëon mouseupput not the visible of fld "xcmd" into showemrepeat with x=1 to number of fldsif script of fld x contains "‚àë‚àë‚àë" thenset the visible of fld x to showEmend ifend repeatrepeat with x=1 to number of bg btnsif script of bg btn x contains "‚àë‚àë‚àë" thenset the visible of bg btn x to showEmend ifend repeatend mouseup</script>
<script>on opencardset the rect of this cd to 0,0,416,342put the long date into fld "theDate"unlock screenselect text of fld "name"end opencardon generateLicenseset cursor to watchif the hilite of bg btn "single" thenput formLetter (fld "single") into bodyelseput formLetter (fld "multiple") into bodyend ifput return into CRput "* LICENSE AGREEMENT *"&CR&CR&¬"BETWEEN"&CR&fld "author"&CR&CR&"AND"&CR&licensee()&CR&CR¬before bodyput body into fld "license"dirty falseend generateLicensefunction licenseereturn fld "name"&return&fld "company"&return&fld "address"end licenseeon validateInputscheckNotEmpty "name"checkNotEmpty "company","the name of your company or institution"checkNotEmpty "address"if the hilite of bg btn "single" then checkNotEmpty "productName","product name"end validateInputson checkNotEmpty fldName,showToUserif showToUser="" then put fldName into showToUserif number of words in fld fldName is 0 thenanswer "Please fill in your "&showToUser&" first."select text of fld fldNameexit to hypercardend ifend checkNotEmptyon multiple boolset the hilite of bg btn "single" to not (bool)set the hilite of bg btn "multiple Products" to boolset the visible of bg fld "productName" to not (bool)set the visible of bg btn "In-house" to not (bool)set the visible of bg btn "Commercial" to not (bool)dirty trueend multiplefunction formLetter theFormrepeatget offset ("∑",theForm)if it≠0 thenput offset ("®",theForm) into endCharput char it+1 to endChar-1 of theForm into fldNameput fld fldName into char it to endChar of theFormelse return theFormend repeatend formLetteron inHouse boolset the hilite of bg btn "In-house" to boolset the hilite of bg btn "Commercial" to not (bool)if bool thenput "in-house" into fld "usageType"else put "commerical" into fld "usageType"dirty trueend inHouseon dirty bglobal dirtyput b into dirtyend dirtyfunction isDirtyglobal dirtyreturn dirtyend isDirty----------on showEmsend mouseup to bg btn "showem"end showem</script>